home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wsc4vb24 / selfline.bas < prev    next >
Encoding:
BASIC Source File  |  1999-06-01  |  1.3 KB  |  52 lines
  1. Option Explicit
  2.  
  3. Function GoOnline (ByVal ThePort As Integer) As Integer
  4.   Dim I As Integer
  5.   Dim Code As Integer
  6.   'open the port
  7.   Code = SioReset(ThePort, 1024, 1024)
  8.   If Code < 0 Then
  9.     Call SayError(SELFTEST, Code)
  10.     GoOnline = 0
  11.     Exit Function
  12.   End If
  13.   Code = SioBaud(ThePort, Baud38400)
  14.   SELFTEST.Print "*** COM"; LTrim$(Str$(1 + ThePort)); " ready ";
  15.   'set DTR & RTS
  16.   Code = SioDTR(ThePort, Asc("S"))
  17.   Code = SioRTS(ThePort, Asc("S"))
  18.   ' set parms
  19.   Code = SioParms(ThePort, NoParity, OneStopBit, WordLength8)
  20.   Code = SioRxClear(ThePort)
  21.   Code = SioTxClear(ThePort)
  22.   GoOnline = 1
  23. End Function
  24.  
  25. Sub ShowCaption ()
  26.   Dim A As String
  27.   Dim B As String
  28.   A = "COM" + LTrim$(Str$(1 + The1stPort))
  29.   B = "COM" + LTrim$(Str$(1 + The2ndPort))
  30.   SELFTEST.Caption = "SelfTest: " + A + " ===> " + B
  31. End Sub
  32.  
  33. Sub ShowConfig ()
  34.   Dim Version As Integer
  35.   Dim A, B, C As String
  36.   Version = SioInfo(Asc("V"))
  37.   C = Hex$(&HF And Version)
  38.   Version = Version / 16
  39.   B = Hex$(&HF And Version)
  40.   Version = Version / 16
  41.   A = Hex$(&HF And Version)
  42.   Version = SioInfo(Asc("V"))
  43.   SELFTEST.Print "*** SELFTEST 1.1"
  44.   SELFTEST.Print "*** WSC Version " + A + "." + B + "." + C  
  45. End Sub
  46.  
  47. Sub ShutDown ()
  48. Dim Code As Integer
  49.   Code = SioDone(The1stPort)
  50.   Code = SioDone(The2ndPort)
  51. End Sub
  52.